home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
kermit.columbia.edu
/
kermit.columbia.edu.tar
/
kermit.columbia.edu
/
bin
/
c64kerv22a.sda
/
RUN ME NOW!
(
.txt
)
< prev
Wrap
Commodore BASIC
|
1992-09-28
|
2KB
|
48 lines
1 REM CREATE C128 AUTOBOOT SECTOR
2 REM RAY MOODY 01/14/88
10 OPEN 15,8,15,"I"
20 OPEN 2,8,2,"#":GOSUB 200
30 PRINT#15,"B-A:0,1,0":GOSUB 200
40 PRINT#15, "B-P:2,0":GOSUB 200
50 READ A:IF A <> -1 THEN PRINT#2,CHR$(A);:GOTO 50
60 PRINT#15, "U2:2,0,1,0":GOSUB 200
70 CLOSE 2:CLOSE 15
80 END
200 INPUT#15,E1$,E2$,E3$,E4$
210 IF E1$ <> "00" THEN PRINT E1$","E2$","E3$","E4$
220 IF E1$ > "20" THEN STOP
230 RETURN
300 DATA 67, 66, 77, 0, 0, 0, 0, 75
310 DATA 69, 82, 77, 73, 84, 32, 86, 69
320 DATA 82, 83, 73, 79, 78, 32, 50, 46
330 DATA 50, 0, 0,165,186, 32,177,255
340 DATA169,111, 32,147,255,162, 0,189
350 DATA120, 11, 32,168,255,232,224, 5
360 DATA144,245, 32,174,255,169, 6,162
370 DATA125,160, 11, 32,189,255,166,186
380 DATA160, 0, 32,186,255,152,162, 0
390 DATA160, 28, 32,213,255,176, 37,120
400 DATA162, 15, 32,107,255, 72,162, 0
410 DATA 32,107,255,141, 0,255,189, 0
420 DATA128,157, 0,206,189,131, 11,157
430 DATA 0,128,232,208,241,104,141, 0
440 DATA255, 76, 77,255,170,108, 0, 3
450 DATA 85, 48, 62, 77, 49, 75, 69, 82
460 DATA 77, 73, 84, 9,128, 9,128,195
470 DATA194,205, 56, 48,160, 0,185, 23
480 DATA128,153, 0,207,200,208,247, 76
490 DATA 0,207, 32,132,255, 32,135,255
500 DATA 32,138,255, 32,129,255,160, 0
510 DATA185, 0,206,153, 0,128,200,208
520 DATA247,169, 0,133,251,169, 28,133
530 DATA252,169, 1,133,253,169, 8,133
540 DATA254,162,132,177,251,145,253,200
550 DATA208,249,230,252,230,254,202,208
560 DATA242,169, 91,141, 38, 3,169,207
570 DATA141, 39, 3,169, 78,141, 36, 3
580 DATA169,207,141, 37, 3,108, 0,160
590 DATA132, 2,172, 93,207,185, 94,207
600 DATA238, 93,207,164, 2, 24, 96, 0
610 DATA 83, 89, 83, 50, 48, 54, 52, 13
620 DATA -1